Ultra Gameplayers 101/Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso/pc/new_ugp.dxr/00263_Video Control Class.ls

Text File | 1997-07-10 | 629 b | 35 lines

property videoDisplay, videoControl, ancestor

on new me, parameterList
  set videoControl to getProp(parameterList, #videoControl)
  set videoDisplay to getaProp(parameterList, #videoDisplay)
  return me
end

on TurnOn me
  case videoControl of
    #play:
      play frame videoDisplay
    #stop:
      stop(videoDisplay)
    #slow:
      slow(videoDisplay)
    #fwdframe:
      fwdframe(videoDisplay)
    #backframe:
      backframe(videoDisplay)
  end case
end

on TurnOff me
end

on dispose me
  set videoDisplay to 0
  set videoControl to 0
  if objectp(ancestor) then
    dispose(ancestor)
  end if
  set ancestor to 0
end